home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / ASCIIZ.ASM next >
Assembly Source File  |  1995-02-10  |  820b  |  29 lines
  1. ;******************************************************************
  2. ;*                           ASCIIZ.ASM                           *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.1                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. LOCALS
  9. .CODE
  10.  Public Asciiz
  11.  ;Converting LString AT ds:si to Asciiz AT ss:DI
  12.  ;on entry DS:SI -> Lstring
  13. Asciiz Proc Far
  14.         PUSH    SS
  15.         POP     ES
  16.         CLD
  17.         LODSB
  18.         CMP     AL,79
  19.         JB      @@1
  20.         MOV     AL,79
  21. @@1:    CBW
  22.         XCHG    AX,CX
  23.         REP     MOVSB
  24.         XCHG    AX,CX
  25.         STOSB
  26.         RET
  27.         endp
  28. end
  29.